home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / LgcyPlus / disk2 / CLKWDGT._ / CLKWDGT.
Encoding:
Text File  |  2001-03-02  |  658 b   |  20 lines
  1. 10    ! ***************************************************
  2. 20    ! Example: CLOCK Widget
  3. 30    !
  4. 40    ! This program creates a default CLOCK widget.
  5. 50    !
  6. 60    ! ***************************************************
  7. 70    !
  8. 80    ASSIGN @Clock TO WIDGET "CLOCK"
  9. 90    CONTROL @Clock;SET ("TITLE":" Example: CLOCK Widget")
  10. 100   CONTROL @Clock;SET ("HEIGHT":150,"WIDTH":250)
  11. 110   CONTROL @Clock;SET ("X":50,"Y":25)
  12. 120   CONTROL @Clock;SET ("SYSTEM MENU":"Quit")
  13. 130   ON EVENT @Clock,"SYSTEM MENU" GOTO Finis
  14. 140   LOOP
  15. 150     WAIT FOR EVENT
  16. 160   END LOOP
  17. 170 Finis: ! 
  18. 180   ASSIGN @Clock TO *       ! Delete CLOCK widget
  19. 190   END
  20.